Top 10k strings from Projector 1 (1984)(McGraw-Hill Book Company UK)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
17
3 sales1
3 "projector1"
2 y(i)=z(b,t*i):
2 y(i)=z(b,i):
2 x(d,i)=x(t,i)*x(t,i):
2 t$(c-b)=a$:
2 split1
2 side1
2 oo,m;d$(f);
2 i=i+z(b,n):
2 curve1
2 c=c+(c<on):
2 PLAY THE TAPE
2 Jan onwards`
2 GO TO start
2 GGGGGGGGGGGGGGGGGG
2 ;"PROGRAM LOADING":
2 "Year? ";y:
2 "Time Chart";
1 zo=qa+oi*a:
1 z(b,t*i-nx-b)=q0*i*i+mx*i+c:
1 z(b,t*i-nx-b)=mx*i+c:
1 z(b,nx+nr):
1 z(b,i)=q0*i*i+mx*i+c:
1 z(b,i)=mx*i+c:
1 yyyyyyyyyy
1 ynnnnJoining Up Points
1 yl=z-j*q/qf:
1 yl=mx*(x-k/p)+c:
1 yh=mx*(w+k/p)+c:
1 y702s00 7Now simple GRAPHS b7Either just a s7SCATTER diagram of s7the points themselvesb2Or join them up s2---------- like this
1 y257s00 2Projecting data b7You can forecast datas7using either a line s7or a curve, then saves7the projections with s7a new name.
1 y250s00 2Now for HISTOGRAMS b0Scaling and labellings0are automatic. b0You can have negatives0bars in different s0colours .....
1 y172s00 1Fitting lines to data b2You can do a best s2fit linear regression b2For example, a s2really awful one...
1 y172s00 1Fitting a curve b2Sometimes a curve s2is more appropriate b2Here is a good s2example...
1 y162s00 1Some notes on pies s2You can change colours2both of the pie and s2of the added text. s2You can pull out a s2slice, for example...
1 y162n00 1Now some specials n2A large histogram n2A cartwheel!
1 y162b00 1Welcome to PROJECTOR 1b2In this demonstrationb2Pie charts b2Histograms b2Graphs b2Fitting lines, curves
1 y161b00 1A word about data b2It can be input by s2month s2quarter, year, day b1Quickly and easily b1and can be displayed
1 y153s00 1More on histograms b0Different colours s0can give quite s3STUNNING s3 effects...
1 y150s00 1Side by Side s0You can have a seconds0type of histogram s0which compares one s0set of figures s0against another...
1 y150s00 1Side by Side s0You can have a seconds0type of histogram s0that compares one sets0of figures against s0another...
1 y150 00 1Side by Side 0You can have a second 0type of histogram 0that compares one set 0of figures against 0another...
1 y147b00 1KEY POINTS slides b0Such as this can haveb0bullets n0numbers s0or just spaces b7You can mix colours.
1 y$)*((i-b)*e+x):
1 xs=(w+k/p-x)/qd:
1 xl=(yl-c)/mx:
1 x(t,i)=z(b,t*i-b):
1 x(t,i)=z(b,t*i-1
1 wheel
1 w=a(k,l)*a(i,l):
1 vpjdgddg^[RL@:(4
1 v=e+t*(d$(e)=y$):
1 updown
1 ud+b,ol;ss;
1 u=t+(d$(e)=y$):
1 t,t;"Heading"'" Heading ink"'" Text background"'" Text ink"'" Bullets/Nos./Spaces"'" Delay between points":
1 t,o;"Equation"'''"R
1 t,m;d$(b);o$(
1 t$>(q4-e)*(d$(b)=y$)+(q4-d)*(d$(b)
1 t$=e$(i+b)(d
1 t$=e$(b)(t
1 spr=f(nt,b):
1 sp=b+g*(n-b):
1 sp=b+d*(fm-no*
1 sp+f)=h$+v$:
1 scrs
1 sales2
1 s=a(i,k)*a(k,k):
1 s=(c$(b,n)=y$):
1 rr=(v(b)*v(b))/n:
1 resentationJ
1 r,m;d$(oi);
1 r$=e$(i+b)(b):
1 ql*(pau-b)
1 qd,ud;"(";u-b;",";l;")";
1 q0=g(b,b):
1 q,m;d$(h);
1 q)+m*((a=p)+(a=q))*(l
1 py|md[F::1(
1 projector1
1 projector ^
1 pr
1 pd=spr+lpr
1 pau=f(nt,e):
1 p3=g(b,p2):
1 p1-p3,p2-p4:
1 p1-p3,p2-p4
1 p,m;d$(g);
1 p,h;p$+l$''
1 p,h;"PIE CHART";l$''
1 p,h;"IMAGE";l$''
1 p,h;"GRAPH";l$;''
1 p,f;s$+l$''
1 os,m;d$(oo):
1 os+j,ol;c(j)/b(j):
1 orizontalP
1 oo,ol;c(b)/(ss*
1 ol;"actual / y":
1 ol-(zo+n*g(b,e)*g(b,d))/oi,b;:
1 ol,ol;(i/(u-b))/((b-i)/l)
1 ol,d;"Average = ";g(b,f)
1 oi,m;d$(e);
1 oi+j,ol;b(j):
1 o;"Modify y/n?":
1 o5+n,zo+z(b,n)*g(b,d):
1 o,qa-(b+c-c1)/t;t$(c1
1 o,qa-(b+c-c1)/t;:
1 o,f;"budget / x";
1 o,(g(b,t)-g(b,b))*g(b,d):
1 nyynyFitting a Line
1 nr=f(nt,f):
1 np=np-(np>b):
1 np=f(nt,d):
1 nnnyyFitting a Curve
1 n163s00 s1Last but not least s2you can build slides s4into an effective s0and colourful s1presentation for s3business meetings.
1 n,t+(n<p);n:
1 n+b,r;c$(b,n):
1 n+b,b;z(b,n);
1 mx=g(b,t):
1 m-zo/oi,cp-(cp=on);:
1 lpr=f(nt,t):
1 logo2
1 lo=lo+c(k)*x(k,j):
1 l=of*(l>of)+l*(l
1 l=l+(l<r)*(a=p)-(l>f)*(a=q)
1 l=l+(l<h):
1 l=l+(a=p)*(l=e)-(a=q)*(l=f):
1 l=l+(a=p)*(l<h)-(a=q)*(l>t):
1 l=l+(a=p)*(l<g)-(a=q)*(l>e):
1 l=l+(a=p)*((l<oo)+t*(l=oo))-(a=q)*((l>f)+(l=q)):
1 l=l+(a=os)+(a=p)*(l<g)-(a=q)*(l>f):
1 l=(a=p)*(l+(l<ud))+(a=q)*(l-(l>e))+(a=oi)*qa+(a=oo)*e
1 l<oo)-(a=q
1 l1,m;g(b,t)
1 l1,m;g(b,b)
1 l1,m;d$(n);o$(
1 l1,m;d$(l-e);o$(
1 k,m;d$(k-b);o$(
1 j=j+v(i)*c(i):
1 i=(dt=b)*(ok+t)+(dt
1 i=((xl-x)/k)*qe:
1 i,qb+oi*p5:
1 i+f,p8+(oz-b)*
1 i+d,p8+(oz-b)*
1 i+b,ui-e+oi*p4:
1 i+(oz-b)*p7:
1 i+(oz-b)*p6:
1 i(n);z(b,n):
1 h;"Move the cursor then y /
1 h;"Have you saved?";
1 h;"Add text/ < change options/ STOP":
1 h;" Move the cursor and ENTER ":
1 h,zo+g(b,e)*g(b,d)*n:
1 h,zo+g(b,b)*g(b,d):
1 h,m;d$(d);
1 h+i,m;d$(i):
1 g,ol;b-((n-b)/l)*(b-i):
1 g,m;g(b,b);
1 g,m;d$(t);
1 g,m;d$(f);o$(
1 g)+oi*(a=q)*(l=f):
1 g(b,t)=vx:
1 g(b,t)=mx:
1 g(b,nx+b):
1 g(b,n+b)=g(b,n)+ff*z(b,n):
1 g(b,f)=i/nx:
1 g(b,e)=ow/g(b,d):
1 g(b,e)=mu*p^po:
1 g(b,d)=r*r/(g(b,t)-g(b,b)):
1 g(b,b+nx):
1 g(b,b)=vn:
1 f,t;"Title"'" Vertical axis"'" H"+u$+" axis"'" Join up points"'" Background grid"'" Fit line"'" Fit curve"'" Display statistics":
1 f,t;"Paper"'" Border"'" Ink"'" Text paper"'" Text ink"'" Title":
1 f,t;"Max positive "'" Max negative"'" Freq h"+u$'" First h"+u$'" Print average"'" Col positive bars"'" Col negative bars"'" Paper"'" Border"'" Title"'" ";t$;
1 f,t;"How many periods"'" Line or curve";
1 f,m;g(b,t);
1 f,m;d$(b);
1 f+(i>nxo);i:
1 f(nt,t)=lpr:
1 f(nt,f)=nr:
1 f(nt,e)=pau:
1 f(nt,d)=np:
1 f(nt,b)=spr:
1 f$=f$+w$+g$:
1 f$=f$+g$+w$:
1 f$="SunMonTueWedThuFriSat"
1 f$="Q1 Q2 Q3 Q4 ":
1 f$="JanFebMarAprMayJunJulAugSepOctNovDec":
1 f$=" Q1 Q2 Q3 Q4":
1 e2=e2+e(j)*e(j):
1 e,t;"Ordinary"'" Monthly"'" Quarterly"'" Yearly"'" Daily"'" Pairs":
1 e,t;"New data"'" Modify/View data"'" Histogram"'" Pie chart"'" Graph"'" Key points"'" Project"'" Graphic image"'" Build/modify p";i$'" Play p";i$'" Save data"'" Load data"'" Directory"'" Stop":
1 e,t;"Build new"'" Modify existing":
1 e(j)=y(j)-lo:
1 e$(i+b)=e$(i+b)(
1 e$(i+b)=d$(f)+d$(e)+t$:
1 e$(i+b)="":
1 e$(i+b)(t):
1 e$(b,g*nx):
1 e$(b)=d$(t)+t$:
1 d,o;"Y=";q0;"X
1 d,o;"Y=";mx;" X + ";g(b,d)
1 d)+wn*(dt=d):
1 d(spr+lpr+d)
1 d(spr+lpr+b):
1 d(Dsp)-oi;" characters":
1 d(Dsp)-Dsp:
1 d$="y162b00n":
1 d$="nnynn":
1 d$="nnynn"
1 d$="nnnyn":
1 d$="77270":
1 d$="5 5 n1277":
1 d$=" ":
1 d$(e);e$(b)
1 cc=cc+y(i)*y(i):
1 cc=cc+a(l,u+k)*v(l):
1 c>o))+(a=oo)*(c<on):
1 c=c-(a=oi)*((l<p
1 c=c+(l=h)*(c<ue):
1 c=c+(c=m):
1 c=c+(c<q1):
1 c=c+(c<oy)*(l
1 c=c+(a=oo)*(l<oi)*(c<oy)-(a=oi)*((l=f)*(c>oi)+(l=g)*(c>m)+(l=h)*(c>m))
1 c=c+(a=oo)*(c<ue)-(a=oi)*(c>m):
1 c(n);z(b,n):
1 c$(b,i)=x$:
1 bb=bb+x(j,l)*y(l):
1 bank1
1 b;"STATISTICS":
1 b;"SEPARATE SLICE?":
1 b;"PROJECTOR 1":
1 b;"Invalid":
1 b;"DATA TYPE":
1 b;"Can't fit":
1 b1=(3500000
1 b,o;"Point no. / h heading /
1 b+k,m;d$(k):
1 b)*(q8-b):
1 b(n);z(b,n):
1 b(n)-e;f$(s
1 b(j)=c(j)/(ss*
1 b(j)=b(j)+(b(j)
1 aa=g(b,n+b)-g(b,n):
1 a=os)-((a=q)
1 a=g(b,n)+aa/t:
1 a=g(b,n)+(g(b,n+b)-g(b,n))/t:
1 a=a+x(i,k)*x(j,k):
1 a=-g(b,b)*g(b,d)/oi:
1 a(k,j)=a(k,j)/z:
1 a(j,u+j)):
1 a(i,u+i)=b:
1 a(i,j)=a(i,j)-s*a(k,j):
1 a(b,u+b)):
1 a$="PROJECT"+j$:
1 a$="PRESENTATION"+j$:
1 a$="PIE CHART"+j$:
1 a$="GRAPH"+j$:
1 a$="DIRECTORY"+j$:
1 USING YOUR OWN COPY SOFTWARE
1 STOP THE TAPE
1 Rename or Overwrite? (r/o)
1 Printer software and loader
1 Presentation name
1 PRESENTATION OPTIONS
1 PLEASE WAIT
1 Number of runs
1 Not understood. Please revise
1 NOT ENOUGH SPACE
1 Move the cursor to change / STOP
1 KEY POINTS
1 Jan onwards$
1 Hst-t,b+s*(b-
1 HISTOGRAMS
1 GGGGGGGGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGGGGGGGG
1 GGGGGGGGGGGGG@@@@@@@@@@@@@@@@@@@GGGGGGGGGGGGGGGGGGGGGGGGGG@@@@@@
1 GGGGGGGGGGG
1 Delay in seconds
1 Data nameL
1 DATA NOW LOADING
1 DATA NOT IN MEMORY
1 Created with Ramsoft MakeTZX
1 Auto/manual
1 Already exists
1 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
1 @@@@@@@@@@@
1 > ins, < del, ENTER repeat, STOP
1 ;"WARNING"
1 ;"STOP THE TAPE"
1 ;"Restart with
1 ;"Press ENTER to go on";
1 ;"Press ENTER to go on"
1 ;"IMPORTANT NOTICE"
1 ;"ILLEGAL BAUD RATE - value must be between 50 and 19200 baud. Check your printer manual for the required rate.":
1 ;"CALL ADDRESS OUT OF RANGE":
1 ;" the last 300 characters of the data area must not be used."
1 80000000000
1 77072Look - a cartwheel!
1 66270Emphasising a Slice
1 55151Sales Split by Country
1 5 1 n1277Fluctuating Cash Flow
1 5
1 4
1 3
1 2
1 1 1 n3266Budget vs Actual by Period
1 1 1 n2270Budget vs Actual by Period
1 1 1 n2200Sales Forecast
1 1 1 n1277End of Quarter Bank Balance
1 1
1 000000000000
1 +";mx;"X+";g(b,d)
1 )=q*(n>ol)+q*(n>qk):
1 )=n-ol*(n>ol):
1 )=f+qa*(n>ol):
1 )=(d$(b)=y$)*(i*e+x)+(d$(b)
1 (z+t*j/d+qz);
1 (z+j/d+qz);
1 (x+t*k/d+qz);
1 (x+k/d+qz);
1 (spr+lpr)-ql:
1 (qz+qi*(n/qi-
1 (oh*y/(y-l)),y
1 (o5+n)-zo):
1 (j)+". "+t$:
1 (i+m)*(i>o),r:
1 (i+f),g(b,n)-g(b,n+b):
1 (g(b,t)/g(b,e)):
1 (g(b,e)*n):
1 (c(t)*uf+qz)/uf:
1 (c(d)*uf+qz)/uf:
1 (c(b)*uf+qz)/uf:
1 (Stz+g*(dt-b)):
1 (-g(b,b)/g(b,e)):
1 ((oh+g)/nx):
1 ((nx-n1)/n2)+b:
1 ((nx+qz/f)/t)*(dt=e)+nx*(dt
1 ((n-b)/t):
1 ((n-b)/ol)):
1 ((h+bw*(n1+n*n2-qz))/oi):
1 ((fm-b)/no)-b):
1 (((yl-z)/j)*qf):
1 (((yh-z)/j)*qf):
1 (((y(k)-z)/j)*qf+qd):
1 (((y(i)-z)/j)*-ud+qc):
1 (((x(t,i)-x)/k)*qe+qd):
1 (((x(t,i)-x)/k)*q2+
1 (((q0*x*x+mx*x+c-z)/j)*qf+qd):
1 (((q0*i*i+mx*i+c-z)/j)*qf+qd):
1 (((i-x)/k)*qe+qd):
1 ("Point ";i;":");
1 '''''''''''"Press 'y' to stop this program to load your software, or ENTER to return to the menu."
1 '''''''"Program restarted - press 'm' for the menu, or ENTER to load the rest of PROJECTOR 1."
1 ''''''"Press ENTER to go on."
1 '''"You must now enter the correct baud rate to suit your printer. Type in the number, and press ENTER"
1 '''"You have selected ";b$
1 '''"If you wish to use your own print driver software, you input it at this stage. The driver software must occupy not more than 256 bytes of high memory."
1 '''"If you neglect this, the printersoftware may be overwritten by data and cause the program to lock when you try to use the printer."
1 '''"Baud rate set at ";b:
1 '''" View"'" Delete items"'" Delete all"''''" Free space = ";oj^t-
1 ''"You have selected the ZX printeror the Alphacom 32 printer. Press ENTER to go on, or 'm' to return to the menu to change your selection."
1 ''"No printer required - press ENTER to confirm, or press 'm' to return to the menu to change your selection."
1 ''"In order to leave the maximum amount of space for data storagePROJECTOR 1 uses the top of the data storage area for the printer software. If you are notusing the printer software then the whole of the data area is free. But as you have engaged the printer software,";
1 ''"Enter the address from which the COPY software is called (in decimal):"
1 ''"Call address ";b
1 '"press 'm' to return to the menu to change your selection."
1 '"Use the
1 '"The high-resolution copy software is intended for use with the Epson MX100 series printers or those using a similar system for making graphics copies."
1 '"Print software occupying the printer buffer must not be used,as this area is used by PROJECTOR 1 for data storage."
1 '"Press ENTER to go on"
1 '"PROJECTOR 1 can be used with anyof several popular printer interfaces. This first part of the program allows you to selectsuitable software."
1 '"Other types of printer may need different software not present in this program. In thiscase you can load your own copy software - which must be suitable for your port - into high memory."
1 '"Load your software using LOAD """" CODE and then restart this program with
1 '"It is vital that this interface is connected to the computer. Ifit is not, PROJECTOR 1 may lock while running and cause the lossof your data. If the interface is connected, press ENTER, if NOT, then disconnect the power from the computer, connect the interface, and start again."
1 #b;"Set tape to play":
1 #b;"Rewind tape & play to VERIFY ":
1 #b;"Print? (y/n)":
1 #b;"Play tape to load
1 #b;"Only space for ";nr:
1 #b;"No space":
1 #b;"Invalid for pairs":
1 #b;"Already exists":
1 "the ZX or Alphacom 32 printer."
1 "the Tasman interface."
1 "the Kempston Einterface."
1 "the Kempston interface."
1 "the Hilderbay interface."
1 "exact fit":
1 "Which p"+i$+"? ";
1 "Week?(1-52) ";y:
1 "Select the option you require bypressing the relevant number:"
1 "Save new data? ";
1 "Rename or Overwrite? (r/o) ";
1 "Quarterly";
1 "Presentation";
1 "Pie Chart";
1 "Ordinary";
1 "Monthly";
1 "Key Points";
1 "Interface 1."
1 "Histogram";
1 "Heading:";
1 "From"+q$;
1 "First quarter?(1-4) ";fm:
1 "First month?(1-12) ";fm:
1 "First day?(1-7) ";fm:
1 "First Year? ";y:
1 "Filename? ";
1 "Breakable? ";
1 "Bar Graph";
1 "''"t statistics"'" constant"'" x"'" x
1 "''"Std err of regression"''"F statistic with"'" degrees of freedom":
1 "''"Standard errors"'" constant"'" x"'" x
1 "'"Corrected R
1 " SELECTION OF PRINTER INTERFACE"
1 option to makeoccasional checks on free memoryand stop entering data when free memory gets down to 300."
1 microdrive or tape?
1 REFERENCE
1 1984 McGraw-Hill Book Company (UK) Limited.
1 ZX printer or Alphacom 32"''"
1 Tasman"''"
1 Sinclair Interface 1"''"
1 Other print software
1 NO PRINTER"''"
1 Kempston port"''"
1 Kempston E"''"
1 Hilderbay"''"
1 Press any key to continue
1